home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / tsetup.arc / TSETUP.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-07-04  |  9.8 KB  |  138 lines
  1. 10 REM This program will create the file TSETUP.COM from DATA Statements.
  2. 20 REM
  3. 30 DEFINT A-Z
  4. 40 ON ERROR GOTO 64000
  5. 50 OPEN "R",1,"TSETUP.COM",1
  6. 60 FIELD 1, 1 AS BYTE$
  7. 70 READ X
  8. 80 LSET BYTE$=CHR$(X)
  9. 90 PUT 1
  10. 100 GOTO 70
  11. 110 DATA 233,152,12,0,0,0,0,0,0,0,0,0,79,112,45,41,0,184,0,185,0,186,0,187,0
  12. 120 DATA 176,0,0,0,0,201,205,205,205,205,205,205,205,205,205,205,205,205,205
  13. 130 DATA 205,205,205,205,205,205,205,205,205,205,205,205,205,187,186,32,32,32
  14. 140 DATA 32,80,114,105,110,116,101,114,32,83,101,116,117,112,32,77,101,110,117
  15. 150 DATA 32,32,32,32,186,186,32,32,84,79,83,72,73,66,65,32,80,51,50,49,47,80
  16. 160 DATA 51,52,49,47,80,51,53,49,32,32,186,204,205,205,205,205,205,205,205,205
  17. 170 DATA 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205
  18. 180 DATA 205,185,186,32,70,49,32,32,67,111,109,112,114,101,115,115,101,100,32
  19. 190 DATA 80,114,105,110,116,32,77,111,100,101,186,186,32,70,50,32,32,69,108,111
  20. 200 DATA 110,103,97,116,101,100,32,80,114,105,110,116,32,77,111,100,101,32,186
  21. 210 DATA 186,32,70,51,32,32,83,104,97,100,111,119,32,80,114,105,110,116,32,77
  22. 220 DATA 111,100,101,32,32,32,32,186,186,32,70,52,32,32,73,116,97,108,105,99
  23. 230 DATA 115,32,80,114,105,110,116,32,77,111,100,101,32,32,32,186,186,32,70,53
  24. 240 DATA 32,32,80,114,111,112,111,114,116,105,111,110,97,108,32,80,114,105,110
  25. 250 DATA 116,32,32,32,186,186,32,85,110,115,104,105,102,116,101,100,58,32,32
  26. 260 DATA 32,84,111,103,103,108,101,32,79,78,32,32,32,186,186,32,83,104,105,102
  27. 270 DATA 116,101,100,58,32,32,32,32,32,84,111,103,103,108,101,32,79,70,70,32
  28. 280 DATA 32,186,204,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205
  29. 290 DATA 205,205,205,205,205,205,205,205,205,205,205,185,186,32,70,54,32,32,69
  30. 300 DATA 108,105,116,101,32,32,32,83,70,54,32,32,67,111,117,114,105,101,114,32
  31. 310 DATA 186,186,32,70,55,32,32,72,83,32,49,48,32,32,32,83,70,55,32,32,72,83
  32. 320 DATA 32,49,50,32,32,32,186,186,32,70,56,32,32,49,50,32,67,80,73,32,32,83
  33. 330 DATA 70,56,32,32,49,48,32,67,80,73,32,32,186,204,205,205,205,205,205,205
  34. 340 DATA 205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205
  35. 350 DATA 205,205,205,185,186,32,70,57,32,32,32,73,110,105,116,105,97,108,105
  36. 360 DATA 122,101,32,80,114,105,110,116,101,114,32,32,186,186,32,70,49,48,32,32
  37. 370 DATA 70,111,114,109,102,101,101,100,32,32,69,83,67,32,32,69,88,73,84,32,186
  38. 380 DATA 200,205,67,97,114,111,32,82,101,115,101,97,114,99,104,32,65,115,115
  39. 390 DATA 111,99,105,97,116,101,115,205,188,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  40. 400 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  41. 410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  42. 420 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  43. 430 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  44. 440 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  45. 450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  46. 460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  47. 470 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  48. 480 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  49. 490 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  50. 500 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  51. 510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  52. 520 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  53. 530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  54. 540 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  55. 550 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  56. 560 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  57. 570 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  58. 580 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  59. 590 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  60. 600 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  61. 610 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  62. 620 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  63. 630 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  64. 640 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  65. 650 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  66. 660 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  67. 670 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  68. 680 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  69. 690 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  70. 700 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  71. 710 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  72. 720 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  73. 730 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  74. 740 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75. 750 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  76. 760 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  77. 770 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  78. 780 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  79. 790 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. 800 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  81. 810 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  82. 820 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  83. 830 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  84. 840 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  85. 850 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86. 860 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,42,48,27,91,7,255,0,0,0,0,0,0,0,0,0
  87. 870 DATA 0,0,0,0,27,33,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,81,7,255,0,0,0,0,0
  88. 880 DATA 0,0,0,0,0,0,0,0,27,18,27,81,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,36,7
  89. 890 DATA 255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,42,49,7,255,0,0,0,0,0,0,0,0,0,0,0,0
  90. 900 DATA 0,27,69,49,50,27,42,48,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,69,49,50,7
  91. 910 DATA 255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,26,73,12,7,255,0,0,0,0,0,0,0,0,0,0
  92. 920 DATA 0,0,0,12,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  93. 930 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  94. 940 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  95. 950 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  96. 960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  97. 970 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  98. 980 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  99. 990 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,93,7,255,0,0,0,0,0,0
  100. 1000 DATA 0,0,0,0,0,0,0,27,34,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,82,7,255,0,0
  101. 1010 DATA 0,0,0,0,0,0,0,0,0,0,0,27,20,27,82,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,27
  102. 1020 DATA 37,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,42,50,7,255,0,0,0,0,0,0,0,0,0
  103. 1030 DATA 0,0,0,0,27,69,49,48,27,42,48,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,27,69
  104. 1040 DATA 49,48,7,255,0,0,0,0,0,0,0,0,0,0,0,0,0,251,80,83,81,82,86,87,30,6,80
  105. 1050 DATA 228,160,88,156,46,255,30,26,1,180,2,205,22,36,5,60,5,116,9,7,31,95
  106. 1060 DATA 94,90,89,91,88,207,14,31,14,7,46,128,62,7,1,0,117,235,180,15,205,16
  107. 1070 DATA 60,2,116,10,60,3,116,6,60,7,116,2,235,217,46,198,6,7,1,1,180,0,46,163
  108. 1080 DATA 8,1,83,138,223,183,0,46,137,30,10,1,91,180,3,205,16,46,137,14,5,1,180
  109. 1090 DATA 1,181,32,205,16,46,139,30,10,1,46,131,62,8,1,7,117,3,187,4,0,209,227
  110. 1100 DATA 46,139,135,16,1,142,216,46,131,62,8,1,7,116,3,232,170,0,141,62,30,1
  111. 1110 DATA 181,28,177,19,182,2,178,26,232,188,0,30,7,14,31,141,54,70,5,181,28
  112. 1120 DATA 177,19,182,2,178,26,232,205,0,46,131,62,8,1,7,116,3,232,140,0,180,0
  113. 1130 DATA 205,22,60,0,116,64,60,27,117,55,46,131,62,8,1,7,116,3,232,102,0,141
  114. 1140 DATA 54,30,1,181,28,177,19,182,2,178,26,232,156,0,46,131,62,8,1,7,116,3
  115. 1150 DATA 232,91,0,180,1,46,139,14,5,1,205,16,46,198,6,7,1,0,233,31,255,232,206
  116. 1160 DATA 0,235,184,128,252,59,114,246,128,252,91,119,241,128,252,68,118,10,128
  117. 1170 DATA 252,84,115,2,235,229,128,236,15,128,236,59,138,196,50,228,177,4,211
  118. 1180 DATA 224,5,110,9,139,240,232,144,0,114,205,179,255,232,121,0,235,131,186
  119. 1190 DATA 218,3,236,168,8,116,251,186,216,3,176,37,238,195,186,216,3,46,139,30
  120. 1200 DATA 8,1,131,235,2,46,138,135,14,1,238,195,138,197,180,0,46,163,3,1,181
  121. 1210 DATA 0,87,232,54,0,139,247,95,86,81,46,139,14,3,1,232,54,0,89,94,129,198
  122. 1220 DATA 160,0,226,238,195,138,197,180,0,46,163,3,1,181,0,232,19,0,87,81,46
  123. 1230 DATA 139,14,3,1,232,22,0,89,95,129,199,160,0,226,238,195,176,160,246,230
  124. 1240 DATA 208,226,182,0,3,194,139,248,195,252,165,226,253,195,252,172,58,195
  125. 1250 DATA 116,9,186,0,0,180,0,205,23,235,242,195,186,0,0,180,2,205,23,246,196
  126. 1260 DATA 8,116,2,249,195,248,195,176,182,230,67,176,0,230,66,176,6,230,66,228
  127. 1270 DATA 97,12,3,230,97,185,0,96,226,254,228,97,36,252,230,97,195,252,164,226
  128. 1280 DATA 253,195,180,15,205,16,60,7,117,10,198,6,12,1,112,198,6,13,1,7,252,141
  129. 1290 DATA 54,30,1,141,62,70,5,185,112,0,160,12,1,164,170,226,252,185,11,0,81
  130. 1300 DATA 164,170,185,26,0,160,13,1,164,170,226,252,164,160,12,1,170,89,226,235
  131. 1310 DATA 185,112,0,164,170,226,252,184,0,240,142,216,128,62,254,255,253,117
  132. 1320 DATA 18,184,64,0,142,216,199,6,96,0,7,6,180,1,185,7,6,205,16,184,0,0,142
  133. 1330 DATA 216,161,36,0,46,163,26,1,161,38,0,46,163,28,1,250,199,6,36,0,169,11
  134. 1340 DATA 140,14,38,0,251,186,155,13,205,39
  135. 64000 IF ERR=4 THEN CLOSE: PRINT "TSETUP.COM successfully created.": END
  136. 64010 ON ERROR GOTO 0
  137. 64020 END: REM  of TSETUP.BAS
  138.